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MODULE PASSWRIT 


E_INTEGER ( Ri yTLe ‘Write a signed integer’ 
TOEN NT = '1=002' ! File: PASWRIINT.B32 Edit: $BL1002 


BEGIN 


BOSE ESESSSSI CIOL ET TT TTT TTT TET err rrr e tect titi ii titi titi iit iti it iti iii i 
'® 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


OOooOoooooooooooooooooeo 


\feojlelolelelelaleolelolelolololololelolelolo) 
MMM 3 4 M$QOOOOOODOCOO 


4 7 : 
: 4 4 4 F 
3 2 5 : ; 
3 * : 
: 7 § 1 & 3 
; 8 8 1 * : 
; % 9 1 * 3 
3 19 ? : :* ALL RIGHTS RESERVED. * 3 
3 ‘@ ® P4 
; i ¢ 1 !* Tuts SOF TWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 3 
: 1 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tint ee ns THE * ; 
: #614 4 1 !8 INCLUSION OF THE ABOVE Sgt NOTICE. THIS SOFTWARE OR OTHER * : 
ee 5 1 i (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
: 16 6 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: i f : :* TRANSFERRED. * : 
; '® * : 
.- 9 1! pba INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
: 20 0 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
3 $3 1 : :* CORPORATION. * 3 
; I * 3 
; $053 1 !* DIGITAL ASSUMES NO RESPONSIBILITY Ry THE USE OR RELIABILITY OF ITS * 3 
: 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
$ @ 0025 1 !* * 3 
; @ 0026 1 !«* * ; 
4 e7 00 7 1 Lee RRR RRA EEE EEE EEE EEA EAA EEE Ps 
; @& 0028 7! F 
; $3 ih 94 1 F 
3 0 0030 1 !++ ; 
*) a 0031 1 ! FACILITY: Pascal Language Support $ 
a itt] 1! 3 
; 33 003 1 ! ABSTRACT: $ 
; 0034 1! : 
i. 0035 1! This module cangeing a procedure which writes a signed integer F 
; @» 0036 1! to a textfile 3 
;. a 0037 1! 3 
: $8 st 4 : ENVIRONMENT: User mode - AST reentrant : 
; ry sre } : AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 : 
3; 662 B06 1 ! MODIFIED BY: 3 
: 63 0043 1! 3 
: 666 0044 1 ! 1-001 - Original. SBL 1-April-1981 3 
.* os 0045 1 ' 1-002 - Make total-width a longword. SBL 30-June-1982 : 
; 46 0046 1 !-- : 
oe} 0047 1 : 
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1 * + ada talc Write a signed integer 


i= 


! Externals, linkages, PSECTs, structures 


! Write to textfile 
! Write to string 
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SIDE EFFECTS: 
If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: 


LINTOOLON = Line too Long oF ab Sho 
NEGWIDDIG - negative width or digits specification not allowed 


BEGIN 


C009 Cd CO 09 09 G9 09 09 08 SINISE O OO 


File control block 
' Total width 
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1 -002 PASSWRITE_INTEGER oMirite an integer to textfil 12 é-sep-1964 93: $3: $f PASRT L°§ CIPASWRIINT. 5 2;1 . (3) 
: Be 143 1 ZSBTTL ‘PASSWRITE {RTC OER oe - yeite ” integer to textfile’ | 
; 144 1 GLOBAL ROUTINE st weiTe ! Write an integer 
;: 145 1 F SPAS Pro rire’ EVARIABLE, ' File variable 
; i 1 IN NYEGER ' Value to write 
; Bie 1 TOTAL _WibTH: SIGNED, ' Total field width 
, OF 148 #1 ERROR” ' Error unwind address 

; 88 0149 1 ): NOVALUE = 

: $6 Oia, | tes 

: 31 0136 FUNCTIONAL DESCRIPTION: 

4 og He i This procedure writes a signed integer to the specified textfile. 

: 95 0196 CALLING SEQUENCE: 

: 97 0158 1 i CALL PASSWRITE_INTEGER (PFV.mr.r, oo rl.v, TOTAL_WIDTH.rl.v 

; oS 424 : CERROR j.rd) 

; 90 o161 FORMAL PARAMETERS: 

: 10 $168 1/ PFV - The Pascal File Variable (PFV) passed by reference. 

; 0 818 : The structure of the PFV is defined in PASPFV.REQ. 

: 01 INTEGER - The integer to write. 

: Qi TOTAL_WIDTH - Total field width. 

; 3 ' ERROR - Optional. Address to unwind to if an error occurs. 

: oi IMPLICIT INPUTS: 

: 01 NONE 

: oi IMPLICIT OUTPUTS: 

: ot NONE 

F 01 ROUTINE VALUE: 

: 0182 1 | NONE 

; 01 1! 

; 01 1! 

; 01 1 

; 01 1 i 

: 01 1: 

3 01 1: 

3 01 1 

! ee 

; 0192 1! 
° 01 1 ie | 
; 01 1 

; a & 

: 0 

s 1 

; 01 
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1-008 PASSURITE. INTEGER <Mirite an integer to textfil 12-808- 1382 95:89 :6¢ PASRTL SRE Pasuntint 69231 a (33 
nagar one 
STRING: VECTOR C12, BYTE], i String for result 
8 DESCR: BLOCK (8, BYTE), ! String descriptor 
PFV_ADDR: VOLATILE, ' Enable argument 
0 UNWIND_ACT: VOLATILE, ! Enable argument 
0 ERROR_ADDR: VOLATILE; ! Enable argument 


BUILTIN 
ACTUALCOUNT; 


ENAB 


+ 
Get ERROR parameter, if present. 


IF ACTUALCOUNT () GEQU 4 
ERROR_ADDR = .ERROR; ! Set unwind address 
PFV_ADDR = PFV CPFVSR_PFVI; ! Set PFV address 


14 
Validate PFV and get PFV. 


14 
Set unwind action to unlock file. 


UNWIND_ACT = PASSK_UNWIND_UNLOCK; 
‘4 
Do common initialization. 


PASSSINIT_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 


'¢ 


1 
| 
| 
| 
| 

LE 

PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 

Check for invalid width. 


ooo 09 09 09 09 09 09 09 09 SI INI NI NS NIN NS NS NOAA AAAAAAAA IIIT BBP = 
Soe eS BRO PN ES SNS AR SOs uo none oS Ode we no Dae noe 


SPASSIO_ERROR (PASS$_NEGWIDDIG,0); 


'¢ 
Check for TOTAL_WIDTH exceeding remaining width. 


-FCB CFCBSA_RECORD END) - .FCB CFCBSA_RECORD_CUR]; 


NG_WIDTH = 
AL-WIDTH GTRU .REMAINING_WIDTA 


Be Be Se Se Oe Se Ge Se Se Se Se Se Se Se Se Ge Se Se Se Ge Fe Ge Se Se Se GHGs Se Ge Se Ge Se Ss Ge FF Ss Se Ge Se Se Se Se Se ee Se Se Se Se Se ee Sees Sse Seb eee 
ee ee ee a ee ec ee ee ee ee a ee ee a ed ed ad 


2 
; 
; 
2 
§ PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 
2 
r4 
2 
2 
; 


IF_.TOTAL_WIDTH LSS 0 
| 
| 
} 
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Not | 
ed integer 16-Sep-1984 02:20:27 AX=-11 Bliss-32 V4.0-74 
TEGER = "Write an integer to texttil la-sep-1984 19:59:05 EPASRTL SRE SPASURI INT B92: ree iss 


SPASSIO_LERROR (PAS$_LINTOOLON,1,(.TOTAL_WIDTH=.REMAINING_WIDTH)); 


14 
Try to convert directly into record buffer. 


DESCR CDSCS$W_LENGTH] = .TOTAL_WIDTH; 
DESCR EDSCSB-CLASS] = 0: 
DESCR CDSC$B-DTYPE] = 0: 
DESCR CDSCSA-POINTER] = .FCB CFCBSA_RECORD_CURI; 
IF NOT OTSSCVT_L_TI (INTEGER, DESCRY 
BEGIN 


14 
Conversion failed. Try again with local buffer. 


+ 
Convert integer to text 


DESCR CDSCS$W_LENGTH] = 12; 
DESCR CDSC$A-POINTER] = STRING; 


OTSSCVT_L_TI (INTEGER, DESCR); ! Can't fail 
DESCR CDSCS$A_POINTER] = CHSFIND_NOT_CH (12, STRING, %C° '); ! Find first non-blank 
DESCR CDSCSW-LENGTH] = STRING CT2] = .DESCR CDOSCS$A_POINTER); ! New Length 


+ 
Determine if we need a leading space. 


FIELD_WIDTH = .TOTAL_WIDTH; 
INT_DIGITS = .DESCR CDSC$W._LENGTH); 

IF CHSRCHAR (.DESCR CDSCSA-POINTER) NEQU %C'-" ! Negative? 

BEGIN 

Not negative. Only if FIELD_WIDTH > INT_DIGITS do we have a leading blank 
if .FIELD_WIDTH GTR .INT_DIGITS 

THEN 


END; 
'¢ 
See if field will fit in record. 


FIELD WIDTH = MAX (.FIELD_WIDTH, .DESCR CDSC$W_LENGTH)); 
LOCAL 
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1-002 PASSWRITE. INTEGER = urite an integer to textfil 14- +8 384 95:89:65 PASRTL.SRC IPASWRIINT.B52;1 (3). 
' 0314 4 EXTR ! Extra characters past end of Line ; 
; 324 0315 4 EXTRA = nf ELD WIDTH = .REMAINING_WIDTH; | ; 
3 2? 0316 4 IF .EXTRA GTR O ; 
3 6 0317 4 THEN ; 
; 57 0318 4 SPASSIO_ERROR (PAS$_LINTOOLON,1,.EXTRA); 3 
: 258 0319 D; 3 
2 @o9 0320 3 
; sev O35) 1+ $ 
: 261 03 § ' Move leading blanks, if any. : 
; 506 032 \- | 3 
; se 0324 3 
; see 0336 a -FIELD_WIDTH = .DESCR COSCSW_LENGTH] GTR 0 ‘ 
: $o8 8356 3 FCB CFCBSA_RECORD_CUR] = CHSFILL (%C" ', .FIELD_WIDTH = .DESCR CDOSC$W_LENGTH], .FCB CFCBSA_RECOR 
; 268 0329 3 '+ 
: 269 0330 3 i Now move value | 
a Hh Lee 
; $f 0335 ; FCB CFCBSA_RECORD_CUR] = CHSMOVE (.DESCR CDSC$W_LENGTH], .DESCR CDOSCSA_POINTER], .FCB CFCBSA_RECORD_ 
> 274 0335 3 END 
s 275 0336 3 
: 276 0337 2 ELSE 
> en 0338 ¢ 
3; 6278 0339 BEGIN 
: 279 0340 3 | 
: 280 0341 3 '+ 
; 281 0342 3 Update record position 
: 282 0343 3 in 
s 253 0344 3 
3: 284 0345 3 FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + .TOTAL_WIDTH; 
: 289 0346 2 END; 
3; 286 0347 2 
s or 0348 2 
: 288 0349 2 “call WRITE epilogue routine to move the last character written to the 
3: 289 0350 2 i user's buffer and to unlock the file variable. 
: 290 0351 2 ie 
: 291 te} 2 
: $36 O3e7 § PASSSEND_WRITE (PFV CPFVSR_PFVJ, FCB CFCBS$R_FCB)); 
3 94 0355 2 RETURN; 
: 295 0356 2 ; 
; 296 0357 1 END; ! End of routine PASSWRITE_INTEGER 

-TITLE PASSWRITE_INTEGER Write a signed integer 

-IDENT \1=-002\ 

-EXTRN PASS$WRITE_INTEGER 

-EXTRN PASSWRITEV_INTEGER 

-EXTRN PAS$$IO_HANDLER 

-EXTRN PASSSVACIDATE_PFV 

-EXTRN PASSSINIT_WRITE 

-EXTRN PASSSSIGNAL, PASSK_NEGWIDDIG 

“EXTRN PAS$K_LINTOOLON 

-EXTRN OTSSCVT_L_TI, PASSSEND_WRITE 
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1-002 PASSWRITE_INTEGER = Sirite an intege: to textfil 73007138 95:89:63 PASRTL. RCIPASWRIINT.B 2:1 riage (3) | 1- 


.PSECT _PASSCODE,NOWRT, SHR, PIC,2 | 
07FC 00000 -ENTRY PASSURITE_ INTEGER, Save R2,R3,R4,R5,R6,R7,- ; 0144) 
5A 000000006 00 9E 90002 MOVAB OTSS$CVT_L_TI, R10 : 
59 000000006 00 3 0009 MOVA PASSSSIGNAL. RO : 
SE ic ¢ 9010 SUBL2 #28, SP : | 
7E D4 001 CLRL ERROR_ADDR + 0195. 
04 AE C 00015 CLRQ UNWINB_ACT : 
6D OOED CF DE 00018 MOVAL 13$, (FP) : | 
04 6c 91 9901p CMPB. ss (APS, #4 + 0218. 
04 iF 020 BLSSU_1$ : | 
6E 10 AC bO 00022 MOVL ERROR, ERROR_ADDR ; 0220 
56 04 AC DO 00026 1$: MOVL FV, R + 0222 
08 AE 56 DO 0002A MOVL R6, PFV_ADDR : 
000000006 00 16 OO0eE JSB PASSSVALIDATE_PFV : 0228 
04 AE 01 pO 00034 MOVL #1, UNWIN > 0234 
000000006 00 16 00038 JSB PASSSINIT_QRITE + 0240 
52 0C AC DO 0003E MOVL §TOTAL_WIDTH, R2 + 0246 
OA 18 00042 BGEQ = 2$ : 
7E D4 00044 CLRL  =(SP) + 0248 
7E 00G 8F 9A 00046 MOVZBL #PASSK_NEGWIDDIG, ~(SP) ; 
69 02 FB O0004A CALLS #2, PASSS$SIGNAL : 
04 00040 RET : 
58 EC A? Hs O004E 2$: MOV -20(FCB), R8 + 0254 | 
53 FO AZ 68 C 0005¢ SUBL3 (RB), -16(FCB), REMAINING_WIDTH : 
53 52 D1 0005 CMPL 2, REMAINING_WIDTH : 0255 
06 18 0005A BLEQ $ : 
7E 52 53 ¢3 0005¢ SUBL3 REMAINING_WIDTH, R2, (SP) : 0257 
6— 11 00060 BRB : 
OC AE 52 3C 00062 3$: MOVZWL R2, DESCR : 0263 
10 AE 68 DO 00066 MOVL (RB), DESCR+4 > 0266 
OC AE 9F OO06A PUSHAB DESCR : 0267 
08 AC 9F 0006D PUSHAB INTEGER F 
6A 02 FB 00070 CALLS #2, OTSSCVT_L_TI : 
03 50 E9 00073 BLBC =_-«RO. 4S : 
0086 31 00076 BRW 11§ ; | 
Oc AE 0C BO 00079 4s: MOVW #12, DESCR + 0279 | 
10 AE 14 AE 9E 00070 MOVAB STRING, DESCR+4 > 0280 
OC AE 9F 00082 PUSHAB DESCR > 0282 | 
08 AC 9F 00085 PUSHAB INTEGER ; 
6A 02 FB 00088 CALLS He OTS$CVT_L_TI ; 
14 AE 0c 20 38 00088 SKPC =o #32, _- #12, STRING > 0284 | 
9¢ 12 00090 BNEQ 5$ : | 
1 D4 00092 CLRL R1 3 
10. AE 51 DO 00094 5$: MOVL 1, DESCR+4 : 
50 6D H 0098 MOVAB STRING+12, RO : 0285 | 
OC AE 50 10 AE AS 0009B SUBW3 DESCR+4, RO, DESCR : | 
50 OC AE 3C OO0A1 MOVZWL DESCR, INT bycits > 0292 | 
2D 10 BE 91 000AS CMPB = @DESCR+4, 4 0293 | 
0B 13 OO0A9 BEQL © 6$ ; 
50 52 D1 OOOAB CMPL  FIELD_WIDTH, INT_DIGITS > 0299 
06 15 000A BLEQ 6$ ; 
OC AE BG 00B INCW  DESCR : 0302 
10 AE D7 0008 DECL DESCR+ : 030 
50 52 DO 000B6 63: MOVL  FIELD_WIDTH, RO > 0311 


; Routine Size: 300 bytes, Routine Base: _PASS$CODE + 0000 


297 0358 1 
298 0359 1 !<BLF/PAGE> 
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1-002 ASSWRITE_INTEGER Rewrite an integer to textfil 12286 382 95:29:68 PASRTL.SRCJPASWRIINT.B352;1 ’ (3) | 
50 Oc AE 10 0 ED 09089 CMPZV #0, #16, DESCR, RO ; | 
4 OOBF BLEQ 86 7$ : ; 
50 0c AE 3C 000C1 MOVZWL DESCR RO : | : 
2g 50 DO 0005 7s: MOVL fELD_WIDTH : | ; 
50 5 53 C3 0008 SUBL3 REMAINING-WIDTH, FIELD_WIDTH, EXTRA + 0315 3 
o¢ 15 000C¢C BLEG + 0316 : 
dd 000C¢ PUSHL EXTRA > 0318 | ; 
4 DD O00D0 8$: PUSHL : | $ 
7E 006 F 9A 000D MOVZBL #PASS$K Tbh tga -(SP) : : 
69 03 FB 9006 CALLS #3, PASSSSIGNA : | ; 
52 Oc AE 10 00 ED SO0DA 9$: CMPZV #0, #16, DESCR, FIELD_WIDTH + 0325 : 
11 0E0 BGEQ : ; 
50 0c Ar 3¢ OO0Ee MOVZWL DESCR, RO + 0327 : 
52 50 C2 O00E6 SUBL 2 RO, R : : 
52 20 6E 00 2C 000E9 MOVCS #0, (SP), #32, R2, @0(RB) : ; 
00 88 | 00EE : | : 
aR 53 DO O00FO MOVL. 3, (RB) : : 
00 B88 10 BE 0c AF 28 OOOFS 10$:  MOVC3 vESCR. @DESCR+4, @0(RB) + 0333 ; 
68 5 DO OOOFA MOVL R (R8) : Z 
03 11 OOOFD RB ; 0267 $ 
68 52 CO OOOFF 11$: ADDL2 2, (RB) + 0345 : 
000000006 00 16 00198 12$:  JSB PASSSEND_WRITE + 0353 : 
04 0010 RET + 0357 : 
0000 00109 13$: «WORD Save nothing 3; 0195 PF 
50 08 AC DO 0010B MOVL  8B(AP), RO : ; 
50 04 AO DO 0010F MOVL  4(RO). RO : : 
E0 AO 9F 00113 PUSHAB ERROR_ADDR : 3 
E4 AO 9F 00116 PUSHAB UNWIND ACT : 3 
E8 AO 9F Bott? PUSHAB PFV_ADBR $ 3 
03 DD OO11C PUSHL #3 2 F 
5E DD OOIIE PUSHL SP 3 $ 
7E 04 AC 7D 00120 MOVQ 4(AP), : 3 
000000006 00 03 FB 00124 CALLS #3, PASSSIO- HANDLER : : 
04 00128 RET : : 
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02 PASSWRI EVO INTEGER at Write integer to string 14- ~Sep-1984 rare 93: 85 PASRTL  SREIPASURTINT.B92s1 " (4) | 
; 300 0360 1 XSBITL 'PASSWRITEV_INTEGER = Write , Integer to string’ : 
; 301 0361 1 GLOBAL ROUTINE E PASSWRITEV_ INTEGER ( : 
; we 0 66 1 MAX_LENGTH: WORD, ! Maximum Length of string ; 
: 3 0363 1 STRING LINE: REF VECTOR C, wORD], ! String to write to : 
; 304 0364 1 INTEGE ! Value to write > 
: 05 0365 1 TOTAL WIDTH: SIGNED, ' Total field width . 
; 306 0366 1 ERROR ! Error unwind address : 
s 307 0367 1 ) : NOVALUE = | : 
; 308 0368 1 | : 
; 309 0369 1 !++ | ; 
: #19 8359 ! FUNCTIONAL DESCRIPTION: ; 
3 HE 0374 : This procedure writes a signed integer to the specified string. ‘ 
: 314 0374 1! CALLING SEQUENCE: | : 
: Sie 0375 1! : 
: 316 0376 1: CALL PASSWRITEV_INTEGER (MAX_LENGTH.rw.v, STRING_LINE.wvt.r, | ‘ 
3 aif tie4 ! INTEGER. rl.v> TOTAL_WIDTH-rl.v C, ERROR.j.rJ) : 
; 319 0379 «#1 i FORMAL PARAMETERS: ; 
; 320 0380 1 : 
i 321 O381 | ! MAX_LENGTH - The maximum Length of STRING_LINE. | : 
; $52 0368 : : STRING_LINE - A varying string to which the output will be appended. | : 
3 Seo 0385 1! INTEGER - The integer to write. ; 
s 326 0386 1 | | : 
s. Ber 0387 1! TOTAL_WIDTH - The width of the field to write. | ; 
; See 0388 1 | F 
3 Sey 0389 1 | ERROR - Optional. If specified, the address to unwind to 3 
; Sw 0390 1! in case of an error. ; 
, 631 0391 1! : 
$ Sse 0392 1 ' IMPLICIT INPUTS: : 
; toe 0393 1! ; 
3; «64334 0394 1! NONE . 
s 335 0395 1! 3 
: 336 0396 1 | IMPLICIT OUTPUTS: : 
g Sor 0397 1! 3 
s; joe 0398 1} NONE : 
; 339 0399 1! 3 
; 340 0400 1 ! ROUTINE VALUE: 3 
3: «(341 0401 1! ; 
; 342 ot 4 1! NONE 3 
: ez 0403 1! 3 
: 44 0404 1 | SIDE EFFECTS: | : 
: 302 0405 1! é 
; 346 0406 1! NONE : 
: 347 0407 1! 3 
; 348 0408 1 | SIGNALLED ERRORS: | ; 
: 349 0409 1! : 
3 350 0410 1! See PASSWRITE_INTEGER : 
Bo BT pe 
5 335 B18 1 3 
H See 0414 BEGIN : 
3 55 0415 3 
; 356 0416 LOCAL F} 


- 
ed integer 16-Sep-1984 02:20:27 AX-11 Bliss~32 V4.0-74 Page 10! 
NTEGER : Write integer to string 12: eet yi 95:89:52 PASRTL.SRCIP PASWRIINT.B32;1 : (4) | 
; PFV: Praseety on at 5 a ! Pascal Thee Variable 
3 ARG_LIST vECT 4 ! Argument List 
; PFV-ADDR: VOLATILE, i Enable argument 
; UNWIND_ACT: VOLATILE, ' Enable argument 
; ERROR_ADDR: VOLATILE; ! Enable argument 
; BUILTIN | 
3 ACTUALCOUNT; ! Count of arguments 
H ENABLE 
: PAS$S$IO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler | 
; \+ 
; t Get ERROR parameter, if present. 
; 2 
: 2 tt tiles () GEQU 5 
3 : ERROR_ADDR = .ERROR; ! Set unwind address | 
s Bar 0437 2 PFV.ADDR = PFV CPFVSR_PFV); ! Set PFV address 
; 3/8 0438 
; 379 0439 + | 
; 380 0440 i Set up ARG_LIST. 
; 381 0441 2 ie 
3 $06 0442 2 
; 38 0443 2 ARG_LIST (0) = ! Three arguments 
; 384 0444 2 ARG_LIST [1] = Pe V PPEVSR PFV); i PFV address | 
; 385 0445 2 ARG_LIST $3 = ! Integer to write 
; 386 0446 2 ARG_LIST (3) = “TOTAL _WIDTH; ! Field width 
3; 387 0447 2 
; 388 0448 2 '+ 
; 389 0449 2 i Call PAS$S$DO_WRITEV to do the work, giving it the address of 
; 390 0450 2 ! PASSWRITE_INTEGER to call. 
; 391 0451 2 i- 
; 392 045¢ 2 | 
3; 393 0453 2 PASSS$DO_WRITEV (PFV CPFVS$R -PFV], .MAX_LENGTH, STRING_LINE (OJ, ARG_LIST, 
3: 394 0454 2 PASSWRITE_INTEGER); 
; 395 0455 2 
; 396 0456 2 RETURN; 
: 397 0457 2 
; 5398 0458 1 END; ! End of routine PASSWRITEV_INTEGER 
-EXTRN PAS$SDO_WRITEV | 
007¢ 00000 .ENTRY PASSWRITEV_INTEGER, Save R2,R3,R4,R5.R6 0361 | 
5E 8 C2 i SUBL2 : 
E D4 0000 CLRL ERROR_ADDR ; 0414 
94 AE 7C 00007 CLRQ Bye tre) ACT : | 
6D 0039 CF DE OOOOA MOVAL ; 
05 6c 91 900F CMPB (Ab) > 0433 
04 1F 00012 BLSSU : 
6E 14 AC 00 00014 MOVL ERROR, ERROR_ADDR : 0435 | 
08 A 1 AE 9E OO018 18 MOVAB PFV, PFV ADDR > 0437 | 
oC A 03 dO 0001D MOVL #3, ARG_CIST > 0443 | 


2 
0 SWRITE_INTEG prise a signed intege 18- $ep-1984 7:20:27 AX-11 Bliss-32 V4.0 
2 PASSWR RITEV INTEGER : Write integer to string 1 73007138 95:89:56 PASRTL.SRC PASWRIINT. 5 231 
10 AE 1C AE 9€ 0 1 MOVAB Pry ARG_LIST+4 
14 AF of AC 7D 6 MOV _INTEGER, ARG_LIST+8 
5 FEAS CF 9E 8 MOVAB PASSWRITE_ INTEGER, RS 
54 OC AE 9E MOVAB ARG_LIST, 
6 if AE 3 4 MOVAB - PFV 
0 AC 8 MOVL STRING LINE, af 
2 4 AC 3¢ 000 ¢ MOVZWL MAX_LENGTH 
000000006 00 ® 04 188 PASS$DO ouniTes 
0096 8049 23: WORD geys,n nothing 
50 08 Ac 06 0049 MOVL RO 
50 04 Ad D O40 MOVL  4(RO), RO 
04 Ad 9F 00051 PUSHAB ERROR ADDR 
D8 AO 9F 00054 PUSHAB UNWIND _ACT 
DC AO 9F 00057 PUSHAB PFV_ADBR 
03 DD 0005A PUSHL #3 
SE 0D 0005¢ PUSHL SP 
7E 04 A zp D 9005 MOV 4(AP), -(SP) 
000000006 00 0 006 CALLS #3, PAS$$IO_HANDLER 
fe 0006 RET 


; Routine Size: 106 bytes, Rout’ne Base: _PASSCODE + 012C 


399 0459 1 
400 0460 1 !<BLF/PAGE> 


Bae Se Be Se Se Be Fe Fe Se Ge Ge Se Be Fe Fe Se Fe Ge Se Se 


PASSyRITE INTEG Write a signed integer 
1-002 PASSWRITEV_INTEGER = Urite integer to string 


40 ree 1 END 
oes 0 ELUDOM 


Name 
_PASSCODE 


File 


-$255$DUA28: CSYSLIBISTARLET.L3 
=$255$DUA28: CPASRTL.OBJJPASLIB 


ener 


405 0464 0 
Size: 406 code + 
Run Time: 00:09.6 
Elapsed Time: 00:27.1 
Lines/CPU Min: 896 


Lexemes/CPU-Min: 17275 
Memory Used: 121 pages 
Compication Complete 


4 2 
1erg8=1 384 93:89:82 HANSA Och sSeRe Mt ior $2.1 hoes 


! End of module PASSWRITE_INTEGER 


PSECT SUMMARY 
Bytes Attributes 
406 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


eer ean Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
2:1 9776 0 581 00:01.0 
-L32;1 427 9 22 33 00:00.4 


COMMAND QUALIFIERS 
INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:PASWRIINT/OBJ=OBJ$:PASWRIINT MSRC$:PASWRI INT/UPDATE=(ENH$:PASWRI INT 


0 data bytes 


0299 fH-8T13A- SE ORPORATION 
VO70 VAX/VMS V4.0 | OPRIETARY 


